object DemoForm: TDemoForm Left = 66 Top = 43 Width = 517 Height = 428 Caption = 'TBarcode' Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] PixelsPerInch = 96 Position = poScreenCenter OnCreate = FormCreate OnPaint = FormPaint TextHeight = 16 object Label1: TLabel Left = 16 Top = 8 Width = 80 Height = 16 Caption = 'Bar_Caption' end object Label2: TLabel Left = 216 Top = 8 Width = 122 Height = 16 Caption = 'Bar_HeightPercent' end object Barcode1: TBarcode Left = 216 Top = 156 Width = 68 Height = 65 Hint = 'Exit program' Bar_Caption = '12345' Bar_HighDensity = False Bar_ModuleWidth = SC2 Bar_WidthReduce = False Bar_ZoomSize = False Code_License = 'Not registered' Code_Version = 'v1.00' end object RGCodetyp: TRadioGroup Left = 16 Top = 64 Width = 169 Height = 137 Caption = 'Bar_Codetyp' ItemIndex = 0 Items.Strings = ( 'EAN-8' 'EAN-13' 'UPC-A' 'UPC-E' 'Code 39' 'Code 2/5 interleaved' 'Code 2/5i (Frachtpost)') TabOrder = 2 OnClick = RGCodetypClick end object CB_ZoomSize: TCheckBox Left = 212 Top = 100 Width = 149 Height = 17 Caption = 'Bar_ZoomSize' TabOrder = 4 OnClick = CB_ZoomSizeClick end object CB_HighDensity: TCheckBox Left = 212 Top = 72 Width = 149 Height = 21 Caption = 'Bar_HighDensity' TabOrder = 6 OnClick = CB_HighDensityClick end object CB_WidthReduce: TCheckBox Left = 212 Top = 124 Width = 141 Height = 17 Caption = 'Bar_WidthReduce' TabOrder = 1 OnClick = CB_WidthReduceClick end object Edit1: TEdit Left = 20 Top = 28 Width = 165 Height = 24 TabOrder = 3 Text = 'Edit1' OnChange = Edit1Change end object SE_HeightPerCent: TSpinEdit Left = 216 Top = 28 Width = 121 Height = 26 EditorEnabled = False Increment = 5 MaxValue = 200 MinValue = 20 TabOrder = 5 Value = 20 OnChange = SE_HeightPerCentChange end object RGModulewidth: TRadioGroup Left = 16 Top = 208 Width = 169 Height = 129 Caption = 'Bar_ModuleWidth' Columns = 2 ItemIndex = 2 Items.Strings = ( 'SC0' 'SC1' 'SC2' 'SC3' 'SC4' 'SC5' 'SC6' 'SC7' 'SC8' 'SC9') TabOrder = 0 OnClick = RGModulewidthClick end object PrintBtn1: TBitBtn Left = 376 Top = 24 Width = 113 Height = 29 Caption = 'Print &1' TabOrder = 8 OnClick = PrintBtn1Click end object PrintBtn2: TBitBtn Left = 376 Top = 60 Width = 113 Height = 29 Caption = 'Print &2' TabOrder = 7 end object ExitBtn: TButton Left = 376 Top = 100 Width = 113 Height = 29 Caption = 'Exit' TabOrder = 9 OnClick = ExitBtnClick end end